home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #277 (1993)(Rhein-Sieg-Soft).zip / Franz PD Disk #277 (1993)(Rhein-Sieg-Soft).adf / Lotto / Lotto.p < prev    next >
Text File  |  1993-11-17  |  884b  |  39 lines
  1. PROGRAM Lotto;
  2. TYPE Feld = ARRAY[1..7] OF INTEGER;
  3. VAR Window : TEXT;
  4.     Return : STRING;
  5.     x,y    : INTEGER
  6.     Zahl   : Feld;
  7. PROCEDURE Zahlen;
  8. BEGIN
  9.   FOR x := 1 to 7 DO
  10.   BEGIN
  11.     Zahl[x] := RANDOM(50);
  12.     IF (Zahl[x] = 50) OR (Zahl[x] = 0) THEN Zahl[x] := 1;
  13.   END;
  14.   FOR x := 1 to 7 DO
  15.   BEGIN
  16.     FOR y := 7 DOWNTO 1 DO
  17.     IF Zahl[x] = Zahl[y] THEN Zahl[x] := Zahl[x] + 1;
  18.   END;
  19.   END;
  20.  
  21. BEGIN
  22.    ASSIGN(Window, 'CON:0/30/640/100/LOTTO V0.01');
  23.    RESET(Window);
  24.    IF EOF(Window) THEN WRITELN('Error!');
  25.    WRITELN(Window,'LOTTO V0.01 --- Public Domain');
  26.    WRITELN(Window);
  27.    WRITELN(Window,'Die Gewinnzahlen der Woche sind:');
  28.    Zahlen;
  29.    WRITELN(Window);
  30.    WRITELN(Window,Zahl[1],' ',Zahl[2],' ',Zahl[3],' ',Zahl[4],' ',Zahl[5],' ',Zahl[6],' | ',Zahl[7],' |');
  31.    WRITELN(Window);
  32.    WRITE  (Window,'[RETURN] ');READLN(Window,Return);
  33.    CLOSE(Window);
  34. END.
  35.  
  36.  
  37.  
  38.  
  39.